home *** CD-ROM | disk | FTP | other *** search
/ Aminet 30 / Aminet 30 (1999)(Schatztruhe)[!][Apr 1999].iso / Aminet / util / pack / xpk_Develop.lha / xpk_Develop / Include / Oberon / XpkSubCalls.mod < prev    next >
Text File  |  1998-11-09  |  1KB  |  41 lines
  1. (*************************************************************************
  2.  
  3. :Program.    XpkSubCalls.mod
  4. :Contents.   Lib-Call-Interface-Module for XpkSub-libraries
  5. :Author.     Hartmut Goebel
  6. :Copyright.  Copyright © 1991 by Hartmut Goebel
  7. :Copyright.  May be free dirstibuted with the Xpk-Package
  8. :Copyright.  permission is given to be inlcuded with AmigaOberon
  9. :Language.   Oberon
  10. :Translator. Amiga Oberon V2.14
  11. :History.    V0.9, 11 Jan 1992 Hartmut Goebel [hG]
  12. :History.    V1.0, 04 Jun 1992 [hG]
  13. :Date.       04 Jun 1992 09:32:10
  14.  
  15. *************************************************************************)
  16. (*
  17.  * Remark
  18.  * Since the sub libraries need the definitions, but not the
  19.  * calls, I decided to split the two parts for reasons of efficiency
  20.  * [hG]
  21.  *)
  22.  
  23. MODULE XpkSubCalls;
  24.  
  25. IMPORT
  26.   e  *: Exec,
  27.   xs *: XpkSubDefs;
  28.  
  29. VAR
  30.   subBase * : e.LibraryPtr;
  31.  
  32. PROCEDURE XpksPackerInfo  * {subBase,-30}(): xs.XpkInfoPtr;
  33. PROCEDURE XpksPackChunk   * {subBase,-36}(params{8}: xs.XpkSubParamsPtr): LONGINT;
  34. PROCEDURE XpksPackFree    * {subBase,-42}(params{8}: xs.XpkSubParamsPtr);
  35. PROCEDURE XpksPackReset   * {subBase,-48}(params{8}: xs.XpkSubParamsPtr): LONGINT;
  36. PROCEDURE XpksUnpackChunk * {subBase,-54}(params{8}: xs.XpkSubParamsPtr): LONGINT;
  37. PROCEDURE XpksUnpackFree  * {subBase,-60}(params{8}: xs.XpkSubParamsPtr);
  38.  
  39. END XpkSubCalls.
  40.  
  41.